home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Online / STFaxUpd / 3.0to3.4 / Update STFax < prev    next >
Text File  |  1998-08-11  |  4KB  |  174 lines
  1. ; $VER: STFax-Update 1.5 (11.8.98)
  2. ;
  3. ; Script by Simone Tellini <wiz@pragmanet.it>
  4. ;
  5.  
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;  set initial variables
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. (set @app-name     "STFax Professional")
  11. (set OldVersion    "3.0")
  12. (set NewVersion    "3.4")
  13. (set OldFile       "STFax:STFax")
  14. (set OldSize       370772)
  15. (set PatchFile     "STFax.patch")
  16. (set @error-msg    "An unexpected error has occured. Installation aborted.")
  17. (set @default-dest "STFax:")
  18.  
  19. (if (= (exists OldFile (noreq)) 0)
  20.     (if (= (exists (cat OldFile ".old") (noreq)) 0)
  21.         (abort @app-name OldVersion " has not been found!")
  22.         (set OldFile (cat OldFile ".old"))
  23.     )
  24. )
  25.  
  26. (if (<> (getsize OldFile) OldSize)
  27.     (abort @app-name " has a different size than the expected one, "
  28.            "patch can't be applied.")
  29. )
  30.  
  31. (complete 0)
  32.  
  33. (welcome)
  34.  
  35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  36. ;  Patch the file
  37. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38.  
  39. (if (<> OldFile "STFax:STFax.old")
  40.   (
  41.     (if (exists "STFax:STFax.old")
  42.         (delete "STFax:STFax.old")
  43.     )
  44.  
  45.     (rename OldFile "STFax:STFax.old")
  46.  
  47.     (set OldFile (cat OldFile ".old"))
  48.   )
  49. )
  50.  
  51. (complete 20)
  52.  
  53. (working "Applying the patch...")
  54.  
  55. (run (cat "Patch " OldFile " STFax:STFax " PatchFile)
  56.     (prompt "Applying the patch...")
  57. )
  58.  
  59. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  60. ;  Copy printer driver
  61. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  62.  
  63. (if (exists "Devs/Printers/STFaxPrt")
  64.     (copyfiles
  65.         (source "Devs/Printers/STFaxPrt")
  66.         (dest "DEVS:Printers")
  67.     )
  68. )
  69.  
  70. (complete 33)
  71.  
  72. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  73. ;  Copy docs, if they exists
  74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75.  
  76. (if (exists "STFax.guide")
  77.     (copyfiles
  78.         (source "STFax.guide")
  79.         (dest "STFax:")
  80.     )
  81. )
  82.  
  83. (complete 35)
  84.  
  85. (if (exists "History.txt")
  86.     (copyfiles
  87.         (source "History.txt")
  88.         (dest "STFax:")
  89.     )
  90. )
  91.  
  92. (complete 40)
  93.  
  94. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  95. ;  Copy modem init strings
  96. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  97.  
  98. (if (exists "Data/ModemInit.cfg")
  99.     (copyfiles
  100.         (source "Data/ModemInit.cfg")
  101.         (dest "STFax:Data")
  102.     )
  103. )
  104.  
  105. (complete 45)
  106.  
  107. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  108. ;  Install new catalogs
  109. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  110.  
  111. (if (exists "Catalogs")
  112.     (copyfiles
  113.         (prompt "Updating catalog files")
  114.         (help @copyfiles-help)
  115.         (source "Catalogs")
  116.         (dest "STFax:Catalogs")
  117.         (choices "italiano")
  118.         (confirm)
  119.     )
  120. )
  121.  
  122. (complete 60)
  123.  
  124. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  125. ;  Copy Textinput.mcc
  126. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  127.  
  128. (if (exists "MUI/Textinput.mcc")
  129.  
  130.     (copylib
  131.            (prompt "Installing updated MUI classes... (Textinput.mcc)")
  132.            (help   "This will install some MUI classes needed by STFax")
  133.            (source "MUI/Textinput.mcc")
  134.            (dest   "MUI:Libs/MUI")
  135.            (confirm)
  136.     )
  137.  
  138.     (complete 70)
  139.  
  140.     (copylib
  141.            (prompt "Installing updated MUI classes... (Textinput.mcp)")
  142.            (help   "This will install some MUI classes needed by STFax")
  143.            (source "MUI/Textinput.mcp")
  144.            (dest   "MUI:Libs/MUI")
  145.            (confirm)
  146.     )
  147.  
  148.     (complete 85)
  149.  
  150.     (copylib
  151.            (prompt "Installing updated MUI classes... (Textinputscroll.mcc)")
  152.            (help   "This will install some MUI classes needed by STFax")
  153.            (source "MUI/Textinputscroll.mcc")
  154.            (dest   "MUI:Libs/MUI")
  155.            (confirm)
  156.     )
  157. )
  158.  
  159. (complete 90)
  160.  
  161. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  162. ;  End
  163. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  164.  
  165. (message @app-name " has been upgraded from version " OldVersion " to " NewVersion
  166.          "\n\nThe old STFax version has been renamed as STFax:STFax.old")
  167.  
  168. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  169. ;  All done.
  170. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  171.  
  172. (complete 100)
  173.  
  174.